home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 88 / SGDS 88.2mg / SDGS.88 / SDC88 / C / SNDMKR.DEMO (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1988-12-25  |  498 b   |  19 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  PRINT  CHR$(21);: TEXT : HOME 
  2. 15  POKE  -16368,0
  3. 17  HIMEM: 23552: REM  1K BELOW MY ROUTINES
  4. 20  GR 
  5. 25  PRINT  CHR$(4)"BLOAD LIBRARY,A$6000"
  6. 26  PRINT  CHR$(4)"BLOAD SOUNDPLAY"
  7. 27  PRINT  CHR$(4)"BLOAD SND.DEMO,A$6100"
  8. 28 SND = 24832
  9. 30  COLOR= 3
  10. 40  VLIN 0,39 AT 0: VLIN 0,39 AT 39: HLIN 0,39 AT 0: HLIN 0,39 AT 39
  11. 50  VTAB 21: HTAB 16: PRINT "DUMB DEMO": VTAB 23: HTAB 16: PRINT "ESC EXITS"
  12. 60 X = 4:Y = 4:DX = .4:DY = 1
  13. 100  COLOR= 15: PLOT X,Y:OX = X:OY = Y
  14. 110  VTAB 21: HTAB 1: PRINT "X:" INT(X)" ": VTAB 22: HTAB 1: PRINT "Y:" INT(Y)" "
  15. 120 X = X +DX: IF X <1  OR X >38  THEN DX =  -DX:X = X +DX: CALL SND
  16. 140 Y = Y +DY: IF Y <1  OR Y >38  THEN DY =  -DY:Y = Y +DY: CALL SND
  17. 150  IF  PEEK( -16384) = 155  THEN  POKE  -16368,0: TEXT : HOME : END 
  18. 160  COLOR= 0: PLOT OX,OY
  19. 170  GOTO 100